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EEE XXX XXX CCC Hi HHH NNN NNN GGG GGG 0 
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) 
| 
‘MODULE exch$require = (IDENT = *VO04-000") = TITLE 'Facility-wide require module’ | 


PRReRRA RAR REE A EAA RAAT EAAEAEHEAERAAAAAARAAEARREKREEEE eee ee eee eee eee ee 


ie COPYRIGHT (c) 1978 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 

® 

® 

® 

® 

ad rare SOF TWARE 44 FURNISHED UNDER A LICENSE AND MAY BE USED AND oer eee * 
t® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH it AND WITH THE * 
'* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
't COPIES THEREOF MAY 4 BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
tt TRANSFERRED. x 
® 

:* He 7 te IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
1 SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
1 CORPORATION. ~ 
. ® 
!* DIGITAL ASSUMES NO RESPONSIB : 
® 

® 

*® 


IBILIT 
t® SOFTWARE ON EQUIPMENT WHICH IS N 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 


VeRO ORE E EAA AAEAHEAEAAARAAAAEAAEAREREAAAAAAAAERERAAAATAEKAE TEA Re eee eeees 


ABSTRACT: 

i a i establishes a common environment for all 0 gy 

i It contains those things that cannot be placed in 

the otanderd Library module (EXCLIB) because of BLISS32 Phan. Set 
ENVIRONMENT: VAX/VMS User mode 

AUTHOR: CW Hobbs - CREATION DATE: 1-July-1982 

' 
le 


! MODIFIED BY: 


'e¢ 

FACILITY: EXCHANGE - Foreign volume interchange facility 
| 
| 
| 
J 
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Module table of contents: 


Reference the standard system Library 
Reference the EXCHANGE Library 


! INCLUDE FILES: 
LIBRARY 
*SYS$LIBRARY:LIB" 


LIBRARY 
*LIBS:EXCLIB" 


! Define the psects to the module-specific names. This lets us keep the plit and code for each module | bai 
! which allows all non-external references to be shorter. ALl storage is read-only except where explicitly 
: set to read/write. 


PSECT 
CODE = ZNAME (Smodule_name_string,'_CODE') (NOWRITE,EXECUTE), 
GLOBAL = ZNAME (Smodule_name_string,’_PLIT') (NOWRITE,EXECUTE), 
OWN = ZINAME (Smodule_name_string,’_PLIT') (NOWRITE,EXECUTE), 
PLIT = ZNAME (Smodule_name_string,'_PLIT') (NOWRITE ,EXECUTE) 


: Define debugging switches 


COMPILETIME 


switch default = 2, Default for when executed with /NOVARIANT. Normal use of the 


' 

! values: 

! 0 = no checking, used to measure cost of checking 

H 1 = production checkin 

' ¢ - “field test’ checking 

' - normal development mode, frequent checks, silent 

: 4 - "'trace’’ mode, most checks, print state occasionally 

5 - “‘debug’’ mode, all checks, display all state messages 
switch_variant = (ZIF ZVARIANT NEQ 0 ! Get the value from the command line, if it is non-zero use 

ZTHEN XVARIANT ! it, otherwise use the default 


ZELSE switch_default %F1) 
ZIF switch variant EQL -1 ' Since we can't tell /VARIANT=0 from /NOVARIANT, use /VARIANT=-1 
ZTHEN ! to disable checking 
; switch_variant = 0, 


switch check = (switch _variant GEQ 2) 
switch trace = (switch variant GEQ 4) 
switch debug = (switch_variant GEQ 5) 


! performs run-time consistency checks, no message unless error 
! print messages at major events and locations 
! print messages at minor events and locations 


' END ‘End of Require module SRC$:EXCREQ 
! ELUDOM 
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